SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

/****** Objeto:  procedimiento almacenado dbo.wp_permite_ingreso    fecha de la secuencia de comandos: 02/11/2005 18:20:22 ******/



CREATE    PROCEDURE [dbo].[wp_permite_ingreso]
@cd_operador _codigo_largo,
@nm_programa _codigo_largo
AS
IF 	( SELECT TOP 1
		acc_prog.st_permiso_ing
	FROM
		wld_acceso_programas AS acc_prog
	INNER JOIN
		wld_miembros_grupo AS grupos 
			ON grupos.cd_grupo_operadores = acc_prog.cd_grupo_operadores
	INNER JOIN
		wad_operadores AS oper
			ON oper.cd_operador = grupos.cd_operador 
	WHERE
		grupos.cd_operador = @cd_operador 
		AND acc_prog.nm_programa = @nm_programa 
	ORDER BY
		acc_prog.st_permiso_ing DESC ) = 1
	RETURN 1
ELSE
	RETURN 0




GO
